home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMIO16.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  1KB  |  46 lines
  1. program DemoIOSixteen;
  2. {demIO16 - single WWLinkIOOBJ input}
  3.                    
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO3, totINPUT, totLINK;
  6.  
  7. Var
  8.    MyList: StrDLLOBJ;
  9.    WWField: WWLinkIOOBJ;
  10.  
  11. procedure FillList;
  12. {}
  13. var Retcode: integer;
  14. begin
  15.    with MyList do
  16.    begin
  17.       init;
  18.       Retcode := Add('It seems like we have to work at innocence ');
  19.       Retcode := Add('and being pure, and at the same time we have ');
  20.       Retcode := Add('to work at being successful so that we have ');
  21.       Retcode := Add('an understanding as to what the rest of the ');
  22.       Retcode := Add('world is up to.');
  23.       Retcode := Add('');
  24.       Retcode := Add('Brother Anthony Fiore');
  25.    end; 
  26. end; {FillList}
  27.  
  28. begin
  29.    ClrScr;
  30.    Screen.WriteCenter(1,15,'Press F10 to finish');
  31.    FillList;
  32.    Mouse.Show;
  33.    with WWField do
  34.    begin
  35.       Init(5,7,65,7,'A Quote');
  36.       AssignList(MyList,40);
  37.       WrapFull;
  38.       Activate;
  39.       gotoxy(1,20);
  40.       MyList.Done;
  41.       Done;
  42.    end;
  43.    Mouse.Hide;
  44. end.
  45.  
  46.